Apple Reference & Presen…tion Library 2 (Reseller)/Apple R&P Lib Reseller v2.0.iso/3-Demos/Third Party Demos/DTMedia/SpringBoard Publisher/stack.txt

Text File | 1989-01-25 | 3KB | 125 lines

-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x0 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 6
-- first background id: 2657
-- card count: 85
-- first card id: 41926
-- list block id: 2088
-- print block id: 3426
-- font table block id: 0
-- style table block id: 0
-- free block count: 50
-- free size: 50432 bytes
-- total size: 638976 bytes
-- stack block size: 3584 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x01228000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x0000220000002200
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0xCC003300CC003300
-- patterns[4]: 0xCC883322CC883322
-- patterns[5]: 0xEE88BB22EE88BB22
-- patterns[6]: 0xEECCBB33EECCBB33
-- patterns[7]: 0xFFCCFF33FFCCFF33
-- patterns[8]: 0xFFEEFFBBFFEEFFBB
-- patterns[9]: 0xFFFFFFBBFFFFFFBB
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on openStack
  hide message box
  hide menuBar
end openStack

on idle
  global initTime,Delay,effectFlag
  if the secs - initTime >= Delay then
    if effectFlag = 1 then visual dissolve slowly
    if effectFlag = 2 then visual iris open slowly
    if effectFlag = 3 then visual wipe right slowly
    if effectFlag = 4 then visual wipe down slowly
    if effectFlag = 5 then visual iris close slowly
    if effectFlag = 6 then visual wipe up slowly
    if effectFlag = 7 then visual scroll right slowly
    go next card
  end if
end idle

on arrowKey
end arrowKey

on enterKey
end enterKey

on returnKey
end returnKey

on tabKey
end tabKey

--on doMenu choice
if choice is "Protect Stack..." or choice is "Quit HyperCard" then
  pass doMenu
end if
end doMenu

on domenu menu -- Script added by Animatrix 12/30/88
  global RPstackname,RPcardname
  if menu is in "Home,Quit HyperCard" then
    if RPstackname is not empty then
      answer "This will return to "&RPStackname&"."
      set cursor to watch
      lock screen
      go card RPcardname of stack RPstackname
      unlock screen with dissolve
      exit domenu
    else
      pass domenu
    end if
  else
    if menu is "Protect Stack..." then
      pass doMenu
    end if
  end if
end domenu